//Este pseudocodigo nos ayudara a saber cuanto dinero se paga por llamadas.
//Fecha: 15/05/2013
//Autores: Juan Manuel, Miguel Angel, Gustavo, Arrturo, Luis Angel
Proceso llamadas_nacionales_locales_e_internacionales
llamada_local <-0;    llamada_nacional<-0;      llamada_internacional<-0;   suma<-trunc(0);
	J<-1;
	llam_local<-1
	llam_nacional<-1
	llam_internacional<-1
	Repetir
		Escribir "Elige una opcion de menu";
		Escribir "1. Llamada Local";
		Escribir "2. Llamada Nacional";
		Escribir "3. Llamada Internacional";
	Escribir "Que tipo de llamada es" ;
	Leer tipo_llamada
	Segun tipo_llamada Hacer
		1:
		  Escribir "Minutos que duro la llamada: " ;
	      Leer minutos
			llamada_local <-.50*minutos;
			Escribir "El costo de la llamada sera: " , llamada_local;
			llam_local<-TRUNC(llam_local);
		2:
		  Escribir "Minutos que duro la llamada: " ;
	      Leer minutos
			llamada_nacional <-1.10*minutos;
			Escribir "El costo de la llamada sera: " , llamada_nacional;
			llam_nacional<-TRUNC(llam_nacional);
		3:
		  Escribir "Minutos que duro la llamada: " ;
	      Leer minutos
			llamada_internacional <-2.10*minutos;
			Escribir "El costo de la llamada sera: " , llamada_internacional;
			llam_internacional<-TRUNC(llam_internacional)
	FinSegun
	J<-J+1;
	Hasta Que J >3
	 Escribir " Hay "  ,  llam_local , "llamadas locales";
		  Escribir " ";
		  Escribir " Hay "  , llam_nacional , " llamadas nacionales ";
		  Escribir ""
		  Escribir " Hay "  , llam_internacional , " llamadas internacionales "
		  suma<-(llamada_local+llamada_nacional+llamada_internacional);
		  Escribir " La suma del costo de  las llamadas es: " , suma;
		  Escribir " ";
FinProceso
